unit MaisControles02;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompLabel,
  IWCompListbox, IWCompButton, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompEdit, Controls, Forms, IWVCLBaseContainer,
  IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion, IWHTMLControls;

type
  TfrmMaisControles02 = class(TIWAppForm)
    IWRegion1: TIWRegion;
    IWFile1: TIWFile;
    IWButton1: TIWButton;
    IWLabel1: TIWLabel;
    IWList1: TIWList;
    procedure IWButton1Click(Sender: TObject);
  public
  end;

implementation

uses ServerController;

{$R *.dfm}


procedure TfrmMaisControles02.IWButton1Click(Sender: TObject);
begin
  IWFile1.SaveToFile(IWServerController.FilesDir + IWFIle1.Filename);
  IWList1.Items.Add(IWFIle1.Filename);
end;

end.
